home *** CD-ROM | disk | FTP | other *** search
/ NBC Slam Jams! / NBC Slam Jams!.iso / xtras / media_la / effector.cst / 00018_Script_Swirl < prev    next >
Text File  |  1997-09-30  |  1KB  |  53 lines
  1. -- Swirl
  2.  
  3.  
  4.  
  5.  
  6.  
  7. Property SwirlAmount,pInterp
  8.  
  9. on getPropertyDescriptionList
  10.   if not alphamaniacCheck(the currentSpriteNum) then exit
  11.   
  12.   set pList=[:]
  13.   addProp pList,#SwirlAmount,[format:#integer,¼
  14.                                comment:"Enter swirl Degrees:",¼
  15.                                Default:0,range:[min:-360,max:360]]
  16.   addProp pList,#pInterp,[format:#symbol,¼
  17.                                comment:"Interpolation:",¼
  18.                                Default:#On,range:[#Off,#On,#Paused]]
  19.   
  20.   return pList
  21. end
  22.  
  23. on beginSprite me
  24.   set s=the spriteNum of me
  25.   if not alphaManiac(s) then exit
  26.   
  27.   set pInterp=interpolation(pInterp)
  28.   Swirl(sprite s,[degrees:SwirlAmount,interpolation:pInterp])
  29. end
  30.  
  31. on slideSwirl me, slider, p
  32.   set s=the spriteNum of me
  33.   if not alphaManiac(s) then exit
  34.   
  35.   setSwirl(me,((p*360) / 100))
  36. end 
  37.  
  38. on setSwirl me, val
  39.   set swirlAmount=val
  40.   Swirl(sprite (the spriteNum of me),[degrees:SwirlAmount])
  41. end
  42.  
  43. on getBehaviorDescription me
  44.   set msg= "This is where it gets cool!  PhotoshopÖ had it, now you have it! Add this to your AlphaManiac for a little twist."
  45.   put return & return after msg
  46.   put "Parameters:" & return & "-----------" & return  after msg
  47.   put "*  Swirl Amount: -360 to 360" & return after msg
  48.   put "*    Interpolation:  On,Off,or While Paused" after msg
  49.   put return & "-----------" & return & return  & ">>>" && amTip()  after msg
  50.   return msg
  51. end
  52.  
  53.